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Replace expressions of the form (GET [t] a) 
with (EXTEND [t] (GET [s] a)) 
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Replace expressions of the form (PUT a E) 
with (PUT a (TRUNCATE [s] E)) 




Replace expressions of the form (GET [t] a) 
with (ZEROEXTEND [t] (GET [s] a)) 
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Replace expressions of the form (PUT a E) 
with (PUT a (TRUNCATE [s]E)) 
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